home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / iguana / incosrc / incosrc.exe / SPI / GENSPI.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-18  |  467b  |  31 lines
  1. TYPE
  2.    Tscr  = ARRAY [0..63999] OF BYTE;
  3.    TSPix = ARRAY [0..197*197-1] OF BYTE;
  4.    TSCel = RECORD
  5.       h : ARRAY [1..800] OF BYTE;
  6.       c : TSPix;
  7.    END;
  8.  
  9.  
  10. VAR
  11.    scr : TScr ABSOLUTE $A000:0000;
  12.    spi : TSCel;
  13.    fi  : FILE OF TSCel;
  14.    fo  : FILE OF TSpix;
  15.  
  16.  
  17.  
  18. BEGIN
  19.    Assign(fi, 'spiral.cel');
  20.    Reset(fi);
  21.    Read(fi, spi);
  22.    Close(fi);
  23.  
  24.    Assign(fo, 'spiral.pix');
  25.    ReWrite(fo);
  26.    Write(fo, spi.c);
  27.    Close(fo);
  28. END.
  29.  
  30.  
  31.